home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PRUS101
/
TESTCONF.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-12-16
|
470b
|
24 lines
program testconfig;
uses fconfig;
var
Config : PConfig;
entry : string;
free : Longint;
begin
free := memavail;
Config := LoadConfig('aha.cfg');
entry := 'Adress';
readEntry(entry, config, CFirst);
writeln(entry);
Entry := 'Adress';
readEntry(entry, config, CNext);
writeln(Entry);
entry := 'dummy';
readEntry(entry, config, CFirst);
writeln(entry);
DisposeConfig(config);
if free <> memavail then runerror;
end.